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PROGRAMMJjtl'S GUIDE FOR FFORM: A FORMAT-FREE INPUT' SYSTEM 
Identification 

<^ 

FFORM - A Format-Free Input Subt.<iutlne Package 

• Authors - Lougenia Anderson and Larry Gales . - • 

Date - May 1978, Center for Quantitative .Science in Forestry, Fisheries 
and Wildlife, University of Washington, Seattle, Washington 98195 

Purpose 

FFORM is a portable format-free input subroutine package written in ANSI 
Fortran IV which permits users to assign inpuu values to program variables by 
name without regard to position or order. For example, FFORM processes the 
following input card, - 

VELOC = 25.2, AREAY(l) = 10 * 0 $ _ 

by assigning the value 25.2 a program variable named VELOC* and by zeroing 
out the first 10 elements of an array named ARRAY. FFORM is especially suitable 
for the input of directives wHich control the operation of interactive programs. 

FFORM is similar to the 'Namelist input/output (henceforth input/output is 
abbreviated as I/O) systems found in many implementations of Fortran, but features 
greatly superioi- error miessages and error recovery procedures, and offers 
additioniil capabilities such as text I/O, annotation of input, and echoing of 
input. 'Unlike Namelis^, however, FFORM cannot interrogate tables within the 
Fortran compiler, and so rf quires auxiliary input information. This information 
consists of: 1) a restriction which limits input variables to a contiguous 
block of locsLtions in blank common; 2) the starting, address of the input block in 

blank common; and 3) a set of declarations which define the order ,^ type, and 

-I 

. ; .4 



dimensionality of all input variables. The latter information, which dupj.icates 
the Input variable declarations in the calling p^rogram, is passed to FFORM Via 
a. formatted file and provides the crucial link which enables it to construct 
symbol tables which control the processing of user input directives. 

The input to FFORM consists of a set of blocks each of which is terrainat'ed 
by a dollar sign ($). Each block consists of one or. more input expressions 
separated by commas and with blanks or comments freely interspersed. Each 
expression controls the input of values to a variable which may be of type 

y 

integer, real, logical, text, double precision, or complex-, and with zero, one, 
two or three dimensions. Repeated values are indicated by the syntax "n*v" where 
n is the repeat count and v is the value to be repeated, and comments are enclosed 
within' slashes (/.../); The input is checked for, among other things, name and 
subscript errors which are automatically flagged and underscored. FFORM output 
is compatible with FFORM. input in that the former can be read directly by the 
latter. 

FFORM also permits a division of the input variable list into a numbef.^of 
named sublists, callerd io-lists, which limit I/O to variables in the sublist. 
Sublists need not be disjoint. The io-lists are especially useful for limiting 
FFORM output, but may be used fpr controlling input as well. 

For a more detailed description of the purpose and use of FFORM, refer to 
its user's guide (Gales and Anderson 1978). 

Us^ge " 

FFORM communicates with the calling program via argument lists, blank 
common, and files. 



• Argument lists: . " r- 

FFORM- contains three main entry points named QQINTL, QQREAD, and QQWRIT 
whose arguments are unsubscrlp ted Integer variables or constants, QQINTL Is 
used to 1-iltlalize the system and to select lo-llsts, and piust be called with 
a blank lo-llst before any other calls are liiade to FFORM. A call with a blank 
io-list name reads and processes the file which contains the declarations for 
the input variables and builds a sjrmbol table. Subsequent , calls to QQINTL with 

' nonblank io-list names mark the S3rmbol table to limit I/O to the variables 

\^ ' 

sp^Q.ified in the io-list. Note that every call to QQINTL, with or without nonblank - 

\ ' 
io-list\names, re-reads the entire file which contains the declarations, hence the 

declaratiorivfile must remain intact, QQINTL is invoked -by the following statement: 

■■ • ./ \ . . 

call' QQINTL (WS, 10 ID, INFILE, ERPILE, ERROR) 

where: _ • * 

WS ~ the number^ of words occupied by the work space in blank common 

before the beginning of the input/output variable area (which 
is also in blank common); - 

lOID a one-character identifier which matches one of the io-lists. Only 

those variables in the io-list so selected will be input when QQREAD 
is called or output when QQWRIT is called. If 10 ID is the blank 
character, then all variables specified in the declarations are 
available for input/output; / 

INFILE = a file containing the declarations and io-list (s); 

ERFILE = a file on which error messages are written; 

ERROR = an error flag which .is set if an error is encountered; EEIROR = 0 
_^if no error was encountered. 
Subroutine QQREAD reads in the user*s input directives under the control 
of the io-list specif.-^.ed in the most recent call to QQINTL. If the io-list name 
is blank, if reads the next input block until it detects a dollar sign ($)• If 



the lo-llst name Is nonblank, QQREAD first searches the input file for the 
* characters "(X)" where^ "X" is the name of the sought for lb-list. When found, 
it accepts input .until it detects a dollar sign or the next io-list name, QQREAD 
is invoked by the following statement: ' 
CALL QQREAD (INFILE, ECFJLE^ ERFILE, ERROR) 

where: r 

INFILE = a file containing the user's free-form input directives; 

ECFILfi = a JEile oti which input cards are echoed (printed out). If ECFILE \ ^- 

is 0 the input is not echoed; > » , . 

ERFILE-. = a file pn which error messages are written; .. 

ERROR = an error number which is set to a nonzero value if an error is detected 5 
. ^. ERROR = 0 if no error was detected. 

».j§ubroutine QQWRIT prints out the names and values of input variables undel^ 
control of the io-list specified in the most recent call to QQINTL. If the 
io-list name is blank, then QQWRIT outputs all variables; otherwise it outputs 
only those variables^ i^hich belong to the current io-list. Output written by 
QQWRIT can be read by QQREAD. QQWRIT is invoked by the following statement: 
* CALL QQWRIT (OTFILE) - 

-where: 

OTFILE = a file on which output is to be written. 
• Common blocks: 

The free-form input system uses blank common and five labeled common blocks 
named /QQSCN/, /QQPARS/, /QQSYM/, . /QQKHAR/, and /QQER/. All variables to be 
input or output by FFORM must occupy a contiguous block of locations in blank 
common. The displacement of the first input variable from the start of the blank 
common must be passed as an argument to subroutine 'QQINJL when FFORM is initialized* 



For example^ suppose blank common is structured as follows;: ^ ] ^ 



EKLC 
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* COMMON // WSPACE(5400) , A(10) V(2,5) , WIND 
where the variables A, V, and WIND are to be input via the free-form input 
V system- In this case, when QQINTL is called, the WS- argument must equal 5400 
to indicate that the input/output variable block begins after the first 5400 
words of blank common,* The five labeled common blocks /QQSCN/, /QQPARS/, /QQSYM/, 
/QQKHAR/, and /QQER/' are used only for. internal operations in FFORM and can 
be ignored by the calling program. ' ' - 

4, 

• Files: * ♦ . ' 

FFORM makes use of four files named. INFILE, ERFILE, ECE^ILE,\nd OTFILE. 
For a call) to subroutine QQINTL, I^FILE i^'the unit number of a formatted file 
which contains the declarations and io-lists. It may contain any number of 
card images, each of which is up to 72 characters long. The format for INFILE 
when read by QQINTL is .formally. defined by the grammar in Appendix I ind consists 
essentially of a\set of data declarations which closely follow the declarations 
for variables in the calling program, exdept that: 1) continuation cards are^ 
not needed; 2) the declarations can begin at, or anywhere after, column 1; 
3) integer variables in the, calling, program which are to receive alphanumeric 
text must be declared as TEXT, not INTEGER; and 4) the block of. declarations is 
terminated by "$ io-lists \ If no io-lists are present then the declaration 

block is terminated by $$, Each io-i!st starts on a new card and is of the form 
(X) V, v,,,4,v where X is a one-character io^list name and v, v, ...,v'are 
the names of input variables. It is absolutely crucial that the 

declarations on INFILE preserve the exact order, type , and dimensionality of the 

input variables as they occur in blank common in the calling program. However, 

variables mentioned in the-t^io-lists may appear in any orderr 

\^ ■ • . , ■ ; 

*However, on many computer\ systems a single real number occupies n computer words 
where n is typically 2 or 4, In this case WS must equal n*5400. 



* The, format for INFILE is illustrated in the following example. Suppose that 
CATCH, TITLE, ENERGY, and LIVE are input variables declared in the main program as 
follows: . 

COmON // WSPACE(5400), CATCH (10, 5), TITLE (60) • 

ENERGY, LIVE 
INTEGER CATCH, TITLE 

REAL ENERGY " . " . ^ ^ 

LOGICAL LIVE ^ / ' 

Suppose that TITLE 'is to contain alphanumeric text, one character per word^ 
•/arid the the following io-li-sts are provided: . (A) TITLE, LIVE (B) ENERGY, CATCH 
and^ (C) CATCH, LIVE; then INFILE must be formatted as follows: 
INTEGER CATCH (10, 5) 
TEXT TITL.E(60) 
REAL ENERGY 

LOGICAL LIVE $ ' o , 

(A) TITLE, LIVE 

(B) ENERGY, CATCH 

(C) CATCH, LIVE $ 

INFJ.LE is automatically rewound by QQINTL at the start of execution. i 

For a call to QQREAD, INFILE is the unit number (it may be a different 
number than in the call to QQINTL) of the file containing the free-form input. 
Again, it; may contain any number of card images, each of wl^iich is up to 72 
characters long;. The format of INFILE when read by QQREAD is formally defined 
in Appendix II and essentially consists of sets of, [name] = [value] expressions, 
where [name] is a simple or subscripted variable and [value] is a value or a list 
of (possibly repeated) values. For example, the user input for the variables in 
the above example might consist of several input blocks on INFILE formatted as 
follows: 



LIVE CATCH(1,5) -= 10*3 $ 

TITLE = # 'CATCH'oF LOBSTER //, CATCH(1,6) = 7, 8, 14,. 2*0, 

ENERGY = 6. 32E+02 $ , . 

(C) LIVE = T $ ' ^ 

INFILE is not rewound by .QQREAD. Note that text variables are delimited by the // 
sign, and that each input sublist must begin on a new card. « ^ 

ERFILE, ECFILE, and OTFILE are the unit numbers of , formatted output files 
written by the free-fora input system. ERFILE contains any error messages • 
generated during execution; ECFILE, if nonzero, contains an echo o^ each input* 
card image read by QQREAD; OTFILE contains the card images of output for variables 
generated by a call to QQWRIT. The output file OTFILE is in a form compatible ■ . 
with free-form input specifications and can thus be reread by a call to QQREAD 
(the file* must first be rewound, however). 

The characteristics of the files, used by the free-form system are summarized 
as follows: 



FILE 
NAME " 


- AUTOMATIC 
REWIND 


^REAi) BY 
QQINTL 


: READ BY 
QQREAD 


WRITTEN BY 
FFORM SYSTEM 


UNIQUE 
UNIT NO. 


INFILE ■ 


' (By QQINTL 
only) 


Yes^ 


Yes 


. No 


Yes 


ECFILE 


No 


'No . 


; No 


Yes 


No 


ERFILE 


No 


No 


No 


Yes 


No 


OTFILE 


No 


No 


No 


Yes 


No 



The column labeled "AUTOMATIC REWIND" means that the file is rewound at the 
beginning of execution. The column labeled "UNIQUE UNIT NO." specifies whether or 
not different file names may reference the same unit npmber. Only INFILE nee4^ be 
unique in the free-form system. ^ Thus, it may be the case that ECFILE - ERFILE = OTF 



The free-form input system does-not check the files to see if file* names 
reference valid unit numbers. * This type of error will jgenerally .trigger error 
messages and„actions which iare peculiar to a given computer- installation. 

a ■■ . ^ 

Structure 

The structure for FFORM is shown by the parse tree in Appendix I. 



Subroutines 

The following is a list and brief •description of all subroutines in FFORM 
in alphabetical order: 



QQBLOK: 



QQCVAL: 



QQCWRT: 



QQDECL: 



QQDELS: 



QQDGT: 



Assigns constant values to all variables which appear in labeled 

common; it is here that' the word size of all variable types must be 

O . — ''^ 

set- or changed for different implementations ^f the-^ree-f orm , 

„s)rstem. 

Called by QQVEXP to parse a single [complex-value] -from the 
input and to assign *the value parsed [repeat-value] number of 
times to the" current (complex) variable. 

Called by QQ\7RIT to output all the values associated with the 
current (complex) variable; output is in a form compatible 
with freerform input specifications. 

Called by QQDELS to parse- a single [declaration] ; determines the 
type which is indicated by a reserved word and calls QQVLST to . 
parse the [variable-list]. • o 

Called by' QQINTL to parse the [declaration-list]; it calls QQDECL 
repeate'aiy to parse all the [declaration] s until an [end-of-f ile] 
is encountered. . ^ . 

Returns the real value associat'ed with a given numeric character. 



ERIC 



QQDVAL: 



QQDWRT: 



QQERR: 



QQFIND: 



QQFIOL: 
QQGNAM: 
QQIEXP: 



QQINLS: 



qqinst;: 



QQINTL: 



QQIOLS: 



^ Called by QQVEXP to parse a single [double-precision-value] from* 
the input and to assign it [repeat-value] number of times to the^ 
current (double precision) variable. ' 

Called by QQWRIT to output all the values associated with the" o 
•current (double precision) variable; output is in a form 

coiqjatible with free-form input specifications. • . 

Outputs an error message containing a given error number and ««■ ' 

reads from the input Jile_untii an [end-of-f ile] is encountered. 
Returns a pointer to' an item in the sjrmbol table if the global ' ' 
NAME array matches one of the variable names in the symbol table; 
zero otherwise. 

Scans the input until the selected [io-name] is found. 
Moves the variable nam^ just scanned into the global' NAME array. 
Called by QQINLS to parse a single [input-exp]; it calls QQNPAR 
to parse the .[name-part] , parses the equal sign, and then calls 
QQVPAR to parse th^ [value-part]. 

Called by QQREAD to; parse the [input-list]. It repeatedly calls 
QQIEXP to parse each [input-exp] until an [end-of-f ile] is encountered. 
Makes an entry in the symbol table for the variable .which^ has just 
been parsed in th^ declarations. ' " 

Initializes the free-form input package, calls QQDELS to parse the 
declarations, and calls QQIOLS to' parse the [io-list]s/ 
Called by QQIITTL to parse^ the [io-list] selected; it calls QQFIOL 
to find the [io-name] specified and then calls QQVFLG to parse 
and flag those variables which follow. 



12 
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QQIVAL: 



QQIWRT: 



QQKLS: 



QQLEX: 



QQLVAL: 



QQLWRX: 



QQNPAR^ 

/• 

QQNUM: 
QQREAD: 



Called by QQVEXP to parse a single [integer-value] from the 
input and to assign it [repeat-value] number of times to the 
current (integer) variable. 

Called by QQWRIT to output all the values associated with thk 
current (integer) variabJe; output is in a form compatible 

-with free-form input specifications. 

■* J* • , 

Returns the partition class (alpha, numeric, special character, 
or other) associated with the k^^ character in the KHAR array. 
This function uses an algorithm for character comparison that is 
machine-dependent. The ordering of the internal representation 
of characters is used to establish the partition and must be 
change.d for different orderings of characters. 
Lexical analyzer; acts on the KHAR array which contains the 
current card image to determine the next syntactic sjrmbol. 
Called by QQVEXP to parse a single [logical-value] from the 
input and to assign it [repeat-value] number of times to the 
current (logical) variable. 

Called by QQWRIT to output all the values associated with the 
current (logical) variable; output is in a form compatible 
with free-form input specifications. 

Called by QQIEXP to parse the [name-part] of a free-form [input- 
expression]^ 

Converts numeric string contained in KHAR array into its numeric 
value, either integer, real, or double precision. 
Parses free-form input, setting variables located in blank common 
to the values specified; it is assumed that the sjrmbol table has 
been filled with the necessary Information by a prior call to QQINTL. 



ERLC 
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QQRVAL: 



QQRWRT: 



^QSCAN: 



QQSLST: 
QQTVAL: 



QQTWRT: 



QQVAR: 
QQVEXP: 



QQVFLG: 



QQVLST: 
QQVPAR: 
QQVRW: . 



Called by QQVEXP to parse a single [real-value]' from the input 
and to assign it [repeat-value] number of times to the current 
(real) variable. 

Called by QQWRIT to output all the values associated with the 
current (real) variable; output is in a form compatible with 
free-form input specifications. 

Free-form scanner; drives the lexical analyzer QQLEX and maintains 
the necessary information for the current and look-ahead syntactic 
symbols. • 

failed by QQVAR and by QQNPAR to parse a [subscript-list]. 
Called by QQVEXP to parse a single [text-value] from the input 
and to assign it [repeat-value] number of times to the current 
(integer) variable. 

Called by .QQWRIT to output all the values associated with the 
current (text) variable; output is in a form compatible with 
free-form input specifications. 

Called by. QQVLST to parse the [variable-part ] of declarations. 
Called by QQVPAR to parse a single [value-exp]; it checks for a 
[repeat-value] and calls the appropriate subroutine to parse' 
the value itself. 

Called by QQIOLS to parse the. [var-part] of the selected [io-list] 
and to set the sjnnbol table flag associated with each variable 
£o named. 

Called by QQDECLto parse a [variable-list]. 

Called by QQIEXP to parse the [value-part] of an [input-exp]. ^ 
Determines if a character string in KHAR array is a variable name or 
a reserved word. 

14 
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QQWRIT: Driving routine* to output all variables which appear in the current 

[io-list] in a form compatible with free-form input. 

Coding information 

o 

• Literals and constants: 

The literals used in the free-form system can be divided into the following 
classes: ' _ 

1) The integers 1-25 are used as error numbers; ^ 

2) the integers 0 and 1 are used as flags in the symbol table; 

3) the integers 1 and 2 are used to indicate a reference to the^ current 
scanner token and look-ahead scanner token, respectively; 

4) the integer 0 is used as a flag to indicate no error conditions exists; 

5) the integers 1-72 are used as subscripts in referencing various arrays; 

6) the integers 0 and 1, the real number 0., and the double precision 
number O.DO are used in initialization; 

7) the integer 1 is used as an increment /decrement ; ' 

8) the logical constants .TRUE- and .FALSE.; 

9) the integer -1, the real number 10. and the double precision numbers 
l.Dl and -l.DO are used in converting a string value to a numeric value. 

Constants are divided into two classes: 

1) those values that are assigned in the"CONSTANTS" section of each routine; 

2) ' those values which, while assigned in the "INITIALIZATION" section of 

each routine, usually remain constant throughout execution of the entire 

free-form system (they can be changed during execution but are more ^ 

. • - > ' 

constant than most variables). 

The two classes of constants are described in the following tables: 



.1 
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CONSTANTS (Class 1) 



NAME VALUE 



SUB. 



BLOCK 



RSWL(*,*) (see QQVRW 
description) ' 



NRSW , 



LRSW 



NUM(*) 



ISIZE 



RSIZE 



LSIZE 



CSIZE 



•DSIZE 



NLIM 



NAME(*) 



iWAR 



0,1,2,3,4,5, 
6,7,8,9 



1HI,1HR,1HL,- 
iiHT,lHC,lHD, 
11 




QQVRW I 

QQVRW 

QQDGT 

QQBLOK 

QQBLOK 

PQBLOK ; 

QQBLOK 

QQBLOK 

QQBLOK 
QQVRW 



QQimT 
QQLIfllT 
QQRWRT 
QQCWRT 
QQDWRT 
QQTWRT 



AA,BB...ZZ lHA,lHBv,.lHZ QQBLOK 



/QQSYM/ 
/QQSYM/ 
/QQSYM/ 
/QQSYM/ 
/QQSYM/ 

/QQSYM/ 



/QQKHAR/ 

16 



DESCRIPTION 

Reserved word table; con- 
tains all reserved words 
recognized by FFORM 
system. 

Number of reserved words 
contained in RSWL-*. 

Length of longest reserved 
word in RSWL. 

Number table; contains all 
digits as characters. 

Number of words occupied 
by an integer value. 

Number of words occupied 
by a real value. 

Number of words occupied 
by a logical value. 

Number of words occupied . 
by a complex value. 

Number of words occupied • 
by a double precision 
value . 

Maximum length of a variable 
name, in characters. 

Contains first letter of 
reserved words in RSl^ 
array • 

The number- of values to be 
written on one line of. 
output. 



Contains all the letters 
in the alphabet . (A-Z) . 



14 



NAME 


VALUE 


SUB, 


" BLOCK 


DESCRIPTION 


PLUS , y-.- 


.1H+ 


QQBLOK 


/QQKHAR/ 


Plus sign character. 


MINUS 


IH- 


QQBLOK 


/QQKHAR/ 


Minus sign character. 


STAR 


IH* 


QQBLOK 


/QQKHAR/ 


Star Character. 


SLASH 


IH/ 


QQBLOK 


/QQKHAR/ 


Slash character. 


LPAREN 


1H( 


QQBLOK 


/QQKHAR/ 


Left parenthesis character. 


RPAREN 


— -IH) 


QQBLOK 


/QQKHAR/ 


Right parenthesis character 


EQUAL 


1H= 


QQBLOK 


/QQKHAR/ 


Equal sign character. 


BLANK 


IH 


QQBLOK 


/QQKHAR/ 


Blank character. 


COMMA 


IH, 


QQBLOK 


/qqkhAr/ 


Comma character. 


PERIOD 


/'IH. 


QQBLOK 


/QQKHAR/ 


Period character. 


POUND 


1H# 


QQBLOK 


/QQKHAR/ 


Pound sign character. 


EDFMK 


1H$ 


QQBLOK 


/QQKHAR/ 


Dollar sign charact6r/end- 
of-f ile mark. 


ALPHA 


IHA 


QQBLOK 


/QQKHAR/ 


Signifies alphabetic 
character partition class. 


NUMRL ' 


IHO 


QQBLOK , 


' /QQKHAR/ 


Signifies numeric 
character partition class. 


SPCHR 


1H+ 


QQBLOK 


^ /QQKHAR/ 


Signifies special 
^character partition class. 


OTHER 




QQBLOK 
CONSTANTS 


, /QQKHAR/ 
(Class 2) 


Signifies unrecognizable 
character partition class. 






(Relatively constant constants) 


✓ 


SLIM . 


50 


QQINTL 


/QQSY^I/ 


Maximum number of entries 



which can be made in symbol, 
table (at end of execution 



, of QQINTL, SLIM is set to the 

number of entries which were 
" ■• : • ; ^ made in the sjrmbol table) . 

KSTART 0 , QQINTL /QQPARS/ 

QQRPAD ■ 
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The column number minus 1 
at which scanning will commence 
when a new . card image is read , 
by the scanner... 



NAME VALUE SUB. BLOCK DESCRIPTION 

- KEND 72 QQINTL ' - /QQPARS/ . The last column on the card 

QQREAD Image that will be scanned by 

the scanner before a new card " 
Image is read, 

• Word lengths: 

Six types of variables can be input or output by the free-form system: 
lOTEGER, REAL, LOGICAL, TEXT, DOUBLE PRECISION, and COMPLEX. For a particular 
Implementation, the number of words occupied by a single value of each type ' 
must be specified by setting the constants ISIZE, RSIZE, LSIZE, DSIZE, and 
CSIZE to the number of words occupied by a single value of the corresponding 
type (it is assumed that a single text character occupies the same amount of 
storage as a single integer value — hence there is no need for a TSIZE constant). 
The constants ISIZE. . .CSIZE are all of type integer themselves as the free-form 
system will only handle values that occupy integer multiples of whole words of 
storage. Thus It is possible for a double precision value to bccfipy four words 
of storage (DSIZE must be set to four in this case) but it. is not possible to 
input a value for a variable that is declaried to be a half-word integer variable. 
This restriction Is necessary so that, when storing input values or fetching 
values to be output, blank common is addressed in a uniform manner which 
maintains ANSI standards- and -pthe transportability of the free-form package. ^ 

• Naming conventions: ' . 

All subroutine, function, and common block names within FFORM start with 
the letters QQ in order to minimize conflict with user or system routines. 
All common block locations which are unused in a given subroutine are 
represented by dummy variables of. the form ZZZn or ZZnn where n is a. digit. ^ , 
Each dummy variable may span the area occupied by a. number of variables or arrays. 



. Machine dependencies occur in subroutines QQBLOK, QQKLS, QQINTL, QQVEXP, ,and 
QQWRIT as follows: 

QQBLOK: This routine initializes the constants ISIZE, RSIZE, LSIZE, CSIZE, 
and DSIZE, which determine the number of words of ^storage occupied 
by a value of the corresponding type and must be set ^to match a 
particular implementation. 

QQKLS: This function uses a machine-dependent algorithm for character 
comparison. 

QQINTL: These routine redefine blank common, which is allocated in the 
QQVEXP 

QQWRIT . calling (user) program, to be only one word long. This will c^use 
a problem in computer systems which require all Occurrences of 
common to be of the same length. 

Limitations r . 

FFORM is subject to the following limitations: 1) all variable names must 
start with a letter and are limited to six alphanumeric characters; 2) the 
maximum number of input variables which FFORM can handle at any one time is 50; 
3) all text information is , stored one. character per word; and 4) no check is made 
to seBv if file unit nulmbers are valid — -such errors are left to the computer system. . 

■. ' . , 

Error Handling 

FFORM checks for 25 error conditions. If any of these conditions occurs, it 
outputs an appropriate error number, undersco: :^s that part of the input card in 
error,, skips down the input file to the end of an input block, indicated by a * " 
dollar sign ($), . and returns to ihe calling program with ERROR set to the appropriate 
nonzero value. The error messages are listed in App^endix III. 



Extensions. 

Symbol table: the symbol table is currently^ accessed by a simple linear 
search. If its size is subs tan tially increased, it niight be worthwhile to use a 
hashing algorithm instead. The only changes would involve subroutines QQINST 
(symbol table insertion) and QQFIND (symbol table lookup). 

Octal values: the current implementation does not permit octal values as 
input. It is only necessary to change subroutine QqNUM in order to. read octal 
values. 

Scanner extraction: the free-form scanner can be extracted and used in a 
different environment. It includes the routines QQSCAN, QQLEX, QQERR, QQKLS, 
QQNUM, and QQVRW. 

Computer resources 

• Storage: ^ 

The object deck for the free-form input system occupies 7124 (octal) words', 
of storage when compi^Led under the , CDC 6400 Fortran Extended compiler, optimization 

level 2. ^ 

/' ' .■ ■ 

• Execution time: ' ^ 

/ ^ • ■ - .-. ■ ^ ■ 

y The execution time for the free-form system dapends primarily on the number 
of tokens which must be parsed to interpret the declarations and the input directives 
(examples of tokens: a reserved word, a variable name, a left parenthesis, a numeric 

value, a text constant, a comma, etc,)* It takes, on the average, approximately 

-3 ■ ' ' ■ ^ 

2 X 10 CPU seconds per token on the CDC 6400 computer. For example, a short 

Sample run using the free-form system contained about 100 "free-form input tokens" 

and required 0.195 CPU seconds to execute. Hence, if the average input card / 

contains about 15 tokens, then FFORM will process about .30 cards per second. \ 
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Sample runs 

The annotated listings on the next few pages illustrate the control, program, 
and input data cards, plus the associated output generated by the programs, for 
two sample runs« 



21 



XfFIS#T10*CM45000. SHALL FREE FORM INPUT E)tAf<PLE 

ACCOUNT* XXXXXXXXfXXXX XX, 

MNF#J. 

COMMENT, " " 

C OM ME N T , 4'4> * * ♦ * * * * * * 4>4> * « 4> 4> 4> 4> « « 4> 4> * 4> 4> 4> 4> 4> 0 « 4> 4> 4> 4> 4> 4> * « « 

COMMENT,* THE MNF CARD CALLS THE FORTRAN COM- ♦ 
COMMENT,* PILER TO COMPILE THE SAMPLE EXECU- * 
COMMENT,* TION PROGRAM, ♦ 

COMMENT, ************* *^*******4>4>4>4>4>4<4>4>4>4>%4>4>4>4>4>4>4. 

COMMENT, 

COPYBR*INPUT*DFILE, 
COMMENT, 

COMMENT •************************# 4>«4»«'«4>4>4>4c>«>4>4>4>*jtt 

COMMENT,* THE COPYBR CARD COPIES THE DECLARA- * 

COMMENT,* TION FILE* WHICH FOLLOWS THE MAIN * 

COMMENT,* PROGRAM* TO THE LOGICAL FILE NAMED * 

COMMENT,* DFILE, THIS IS NECESSARY AS THE * - 

COMMENT.* SUBROUTINE QQINTL AUTOMATICALLY * 

COMMENT,* REWINDS THE DECLARATION FILE, * ' 
COMMENT,^************ *********♦**♦♦♦♦*♦♦♦♦♦♦♦♦♦♦ 
COMMENT, 

ATTACH»BFF*ID«BFF, . 
COMMENT, 

connBHT, **************************************** 

COMMENT,* THE ABOVE CARD ATTACHES THE FREE * 

COMMENT,* FORM INPUT SYSTEM, ♦ 

COMMENT, *********************** ****4>4>*4>4>*4>4>4>4>4>4>4> 

COMMENT, 
L0AD*L60, 
iOAD>BFF, 

EXECUTE* FFIEX* INPUT*OUTPUT* DFILE, 
COMMENT, ' 

COMMENT******** ********************** **♦*♦**♦♦♦♦ 

COMMENT,* THE THREE A BOVE CARDS LOAD . AND EXE- * 
-COMMENT,* CUTE THE SAMPLE PROGRAM, * 
.COMMENT, **"*************************** ****«*4>*:^4>4> 

COMMENT, 

*EOR 

PROGRAM FFIEX(INPUT*0UTPUT,TAPE1,TAPE5«INPUT*TAPE6-0UTPUT) 
C . ■ ■ •-. V 

C SIMPLE EXAMPLE OF THE USE OF THE FREE FORM INPUT SYSTEM 
C . : ' ., ■ 

COMMON // K(2»2>2»* A(20)* B* BFLAGO), X, Y, Z* 

AREA* LEN* WIDTH > ^ 

INTEGER K* A 
REAL a 
LOGICAL BFLAG 
COMPLEX X* Y* Z . 
DOUBLE. PRECISION AREA* LEN* WIDTH. 



C 

c 



c 
c 



INTEGER - WS* lOID* ERROR' 
INTEGER OCF, INF* ERF* OTF* ECF 



DATA WS* lOID* ERROR, 

• : / 0* IH * 0 / 

DATA- DCF* INF* ERF» OTF* ECF 

• /I* , 5* <L# 6* 6 / 



•c , ■ ■■. . . ■- 

CALL QQINTL(WS*IOIO>DCF*ERF* ERROR) 
WRITt(6,l) . 

1 F0RMAT(42H1— FREE FORM INPUT AS ECHOED BY QQREAP // IHO) 

IFCERROR. .EO. 0)CALL QQR E AO ( INF# ECF* ERF , ERPOP) 

WRITE t6* 2) - . \ , 

2 FORMAT (IHO, /»34H0 OUTPUT AS WRITTEN BY QOWRif //IHO). 

.IF(ERROR .EQ. 0)CALL QQWRIT(OTF ) 

STOP ■ . • ,. \ ■ ^ ' ■ 

END I 

♦ EOR 

INTEGER K(2#2#2) 

TEXT A (20) . 

RfeAL B 

LOGICAL BFLAGO) 
COMPLEX U,f,Z 

DOUBLE PRECISION AREA", ' 
,LEN, WIDTH $ 

$■ ■ • ■ 

♦ EOR 

/ ' DATE I JUNE 9, 19 77: I 
■ A « SAREA IN SQUARE MILES£> B • A0E2p 
K(l,l# 1) ■ 60# "9, 

, 7 55, 

BFLAGO) • .T., X - (4.,.975)# 

BFLAG(,2) » F, Y - (7E4»3.9), / 

BFLAGd) - .TRUE., Z ■ (99.65»1.), , / _ 

K( 2*2,2} - A 522, " | \ 

LEN » 65E6, WIDTH --^4.3, | J 

AREA » .lD-6 $ ' 

♦EOR V ■ 

♦EOF . ^ > 
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—FREE FORM INPUT AS ECHQED BY OQREAO--^- 



/ ,OATE» JUNE 9, 1977 / 

A « SAREA IN SQUARE' HILESs* B ■ 40E2> 

KU'l'l) ■ 4*3, .60, -9# : 1 

\ ■ : 155, 

BFLA^) i;.T., X • (4., .975), 

BFLAG(K> " F» - Y - (7£i|,3.9), 
BFLAGfl) - .TRUE., Z • (99.65,1. 1'V 
K(2#2,2) - 4522, 

LEN • \65E6, WIDTH • ^4.3, 

AREA • .10,-6 $ 



—OUTPUT AS WRITTEN BY QQWRIT— 



*< • ,3, , ,3, 3, 3, . 

/ 60, . ^ -9, 755, A 5 22, 

A • SAREA IN SQUARE ^MILESH« 

B ■ .4000000E+04, 

BFLAG • T, F, T, " 

X « { .4000000E+01, .9750000E+00), . 

Y • ( .7000000E+05, . 390000bE+01 ) , 

2 / ■ C .99650Q0E+02, . lOOOOOOE+01 ) ^ o 

AREA • .10000000-06, 

LENf • .65t)00t)TJD^aB7' ' 

WIDTH ■ .44300000+0?, . 

$ / " . ' . . ■ . • - - 



■<j. 
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XfFIL*T10,CMA7000i LARGE FREE FORM INOIJT BXAf^Pl 

ACCOUNT* XXXXXXXX,XXXX XX. 
MNFfJ.. . 
COMMENT. 

coRment;* the mnf card calls thFfortran com- \ 

X0MM6NT.* filer' TO COMPILE THE SAMPLE EXECU- ♦ \ 
COMMENT.* TION oPROGRAM. ♦ 
COHk^HJ,**********'***************^************** 
COMMENT. , . 
C0PYBR#INRUT,0FILE. 
COMMENT. 

COMMENT.************* 

COMMENT.* TtfE COPYBR CARD COPIES THE DECLARA- * 
COMMENT.* -TION FILE, WHICH FOLLOWS THE MAIN ♦ 
COMMENT.* PROGRAM, TO THE LOGICAL FILE NAMFD * 
COMMENT.* DFILE. THIS IS NECESSARY AS THE * 
COMMENT.* 'SUBROUTINE QOINTL AUTOMATICALLY '* 
COMMENT.* REWINDS THE DECLARATION FILE. ,* 
COMMENT. ************* *************************** 
COMMENT. 

AtTACH#BFF/iD"BFF. 
COMMENT. 

COMMENT.**************************************** 

COMMENT.* THE ABOVE CARD ATTACHES THE FREE * 

COMMENT** FORM INPUT SYSTEM. * 

COMMENT.**************************************** 

COMMENT. 

I.OAD,LGO'. 

LOAD#BFF. 

EXECUTE, FFIEX, INPUT, OUTPUT, DF.ILE^. " ' 

COMMENT. - . . ' V 

COMMENT************** *************************** 
COMMENT.* THE THREE ABOVE CARDS LOAD AND EXE- *. 
COMMENT.* CUTE THE SAI|;lPLE PROGRAM;:, . * 

COMMENT.*****♦***♦****^* **************** ********* 
COMMENT. ' / 

*EOR, - -.^ • \ ■ 

PROGRAM FFI.EX (INPUT, OUTPUT, TAPEl, TAPES-INPUT, TAPF6»nUTPIJT.) 

c ■. ,„ ■ . . - ■ ■ . . : \ . ■ ' ■ 

C LONGER- EXAMPLE OF THE USE OF THE FREE FORM INPUT SYSTEM 

c . ■■ ■ ■ ■ ' ,. ■■•\. 

. COMMON //- K(^,2.,2^, A (20), B, BFLAGm, X, Y,^^'^^^ " 
AREA, LEN, WIDTH, COM(5dj4), -SAV§(4,5,t), 
DIST(3,3)^ TIKE(3,3), VEL(3,3»# DX, DY, 07, 
'. - XMTN, XMAX, Yf'.IN, YMAX, ZMI.N, ZMAX, 

XRATE, YRATE, ZRATE, MEAN(5), $D(f5), A VG ( 5 ) 

• INTEGER COM • ' > ' • , ... 
REAL -SAVE 

DOUBLE PRECISION DISt,"TIME, VEL ' ^ 

.\ COMPLEX'" DX, DYi DZ , . ■ - i 

INTEGER XMrN> XMAX. YMIN, YMAX,, ZMIN, ZMAX 
. REAL XRATE, YRATE, ZRATE - • " . ' ' 

• DOUBLE PRECISION MEAN, SO, AV(r". ,. \ 
INTEGER K, A - N 
REAL B . . / 

LOGICAL' BFLAG ' 
COMPLEX X, Y, Z 

DOUBLE PRECISION AREA, LEN, TTIDTH 
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\ 



ERIC 



c 
c 



c 
c 



INTEGER 
INTEGER 



DATA 
DATA 



WS» IOID> IQIDA» 

OCF* INF, ERF# . OTF,' ECF 



lOIDB, ERPOP 



0, 



DCF* 

^ i>. 



IOID> IOIDA» . . IQIDB» ERPQP 
, IH , • 1HA# 1HB# 0 
INF, ERF, OTF," ECF 



/ 
/ 



5, 



6, 



6, 



6 ./ 



CAlL QQINTKWS, I0ID*DCF,ERF, ERROR) 
WRITE(0TF,1) 

; 1 F0RMAT(42H1— -FREE FORM INPUT. AS ECHOED BY QQREAD-.-'- // IHO ) 
CALL QQREADdNFrECFvERF, ERROR) 
WRITE i OTF, 2) 

^ 2 F0RMAT(IH0;/,3AH0— OUTPUT. AS WRITTEN BY QOWRIT— // IHO) - 
CALL QQWRITCOTF ) 

CALL QOINJUWS, IOIDA,DCF,ERF, ERROR) 
WRITE<0TF',12) lOIDA 

12 F0RMAT(23H0- OUTPUT FDR SUBLISTL ,1A1, 

24H„AS WRITTEN BY OQWRIT— - // IHO » 
• CALL QQWRITCDTF ) " . , 
CALL QQIKTL(WS,IOIDB,DCF, ERF, 'ERROR) 
. WRITE(0TF,11) - 

11 F0RHAT(53H0— FREE. FORM INPUT FOR SUBLIST B AS ECHOED PY QQPE/D 

3H // IHO) 

•CALL QQREAD(INF,Eei=,ERF, ET?ROR) < 
WRITE(0TF^^12) lOIDB 
CALL 0OWRIT(0TF t 

STOP' ' . > 

END 

♦ EOR 

INTEGER K (2,2,2) 
TEXT^A(20) 
REAL' B 

LOGICAL BFLAG(3) i 
COMPLEX' X,Y,Z ^ 
DOUBLE PRECISION AREA, 
LEN, WIDTH 

TEXT C0M(50>4) > w 

REAL SAVE (4, 5, 6) 

DOUBLE PRECISION. DIST(3>3), TIME(3,3), VEL(3,3) 
COMPLEX DX, DY, DZ 

INTEGER XMIN, XMAX, YPIN, YMAX, ZMIN, ZMAX 
REAL JfRATE, YRATE, ZRATE 

DOUBLE PRECISION. MEAN (5). SD(5), AVG(5) ' ' 

$■•• ■■ . - ■ • ■■ ... ; -. 

(A) ZMIN, ZMAX, YRATE, BFLAG „ 

(B) DX, DY, AVG 

$•■■•;...■ - 

♦EOR 

/ _ DiTEi JUNE 9, 1977 I 
AVG • 4*3. Et2, MEAN > 4«65.6666, 
XRATE • 65.1, YRATE,- 1, .ZPATE 

MEANI5) p ADA,' SD(5) • 5E5, AVG(5) ,- 26.001D-10, 
C0M(1,1). -,5X AXIS-TIME IN MICROSECONDS . 

SY AXIS-VELOCITY AS A FUNCTION OF TIME 

JUNE 
AS A 



SO • A*. 0015, 
99.676, 



C0M(1,2) 
C0M(1,3) 
C0n(l,4) 



-«DATE AND. TIME! 
2Y AX IS -DISTANCE 



13, 1977 9152' A.M. 
FUNCTION OF TIME 



-c, 
5, 
5, 
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XMAX ■ 500* YMAX • ZMAX • 27* 

XHIN ■ 0» YMIN • 1» 2MIN » -3» 

OX » U0.#-36.)* OY '.(1.376* 99.000001)* OZ » 1-676.1*93.21* 

0IST(1*1) • 9*0.* TIME « 9*0.* VEL « 6*0.* 

3*1.* 

SAVE ■ 40*999.999* 

40 ♦ -lll.lli; 40 ♦ 999.999* 
A • SAREA IN SQUARE KILESS* B » 40E120* 
kCl*l*l) * 4*3* 60* -9* 
755* 

BFtAGO) ■ *T.* X ■ (4.*. 975)* 
BFLAG(2) • f* Y » (7E4*3.9)» 

BFLAGd) • .TRUE.* Z ■ (99.65*1.)* 
K(2*2*2) » 4 522* 

L6N ■ 65E6* WIDTH • 44.3* 

AREA « .10-6 $ 

(B) DX ■ (20.*-18.)* DY ■ (2. 752*198. 000002)* 
AV6 « 5*18. E+10* $ 

♦ EOR 

♦ EOF 



ii7 

A- • 



r 



ERIC • 
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■ , - -. .25 . 
—FREE FORM INPUT, AS ECHOED BY QQREAO 



/ DATE I JUNE 9# 1977 / 

AVG • 4*3,E*2* MEAN «^*65. 6666* SD 4*.0C15* 
XPATE « 65.1, YRATE • 1* ZRATE « 99.676* 
MEANCSI « AD^* SD«5) ■ 5E5, AV6(5) • 26.0010-10, 
.C0M(1,1| « SX AXIS-TIME IN MICROSECONDS 
C0M(1*2) «£Y AXIS-VELOCITY AS A FUNCTION OF TIME 
C0M<,1,3» - 5DATE AND TIME! JUNE 13, 1977 9i52 A.M. 
C0M(1,4J ■ HY AXIS-DISTANCE AS A FUNCTION OF TIME 
XMAX -'500, YMAX « 2<t, ZMAX « 27, 
XMIN «0, YMIN « 1, ZMIN « -3, 

DX ■ (40., -36.|, DY ■ 11.376, 99. 000001J,_DZ_i (-676.1^93.2 )j 
DIST(1,1) ■ 9*0., TIME* 9*0., VEL ■6*0., 
3*1. # 

SAVE ■ 40*999.999, 

40 ♦ -lll.iy* 40 ♦ 999.999, 
A ■ 5AREA IN SQUARE HILESs, B - .A0E120, 
K(l,l,l) - 4*3, 60, -9, 
755, 

BFLAGC3> « .T., X « (4., .975), ^ 
BFLAGCSJ » F, Y ■ (7E4,3.9), 

BFLAG(l) « .TRUE., Z « (99.65,1.), 
K(2«2,2) - 4522, 
LEN, « 65E6, WIDTH « 44.3, 

AREA • .10-6 $ \ • . 



OUTPUT AS WRITTEN BY QQWRIT 



A 
8 

BFLA6 
X 
Y 
Z 

AREA 
LEN 
WIDTH 
COM 



SAVE 



MILESH, 



- ( 
• C 



3, 
60, 

SAREA IN SQUARE 

.4000000-t-122, 
T» F, T, 
( .4C0000GE>01, 
;7COOOOOE405, 
•99650d0E402, 
.10000000-06, 
.6500000D-f08^ 
•4430000D+02, 
«\aX AXIS-TIME IN 
s-VELOCIJY AS A. 
5EJ JUNc 13, 1977 
s A FUNCTION OF TIME 
■ .9999990E+03, 
.9999990E+03, 
.9999990E+03, 
•9999990E+03, 
•9999990E+03, 
.9999990E+03, 
•9999990E+03, 
.9999990E+03, 
•9999990E403, 
.9999990E+03, 



3, 
-9, 



3, 
75?, 



.4522, 



.975C0b0E+00), 
.3900000E401), 
.lOCOOOOE-fOl), 



MICROSECONDS 
FUNCTION OF TIME 
9152 A.M. 




.9999990E+03, 
.9999990E-t-03, 
.99999C0E+O3, 
.9999990E*03, 
.9999990E-t-03, 
.9999990E+03, 
.9999990E-t-03, 
.9999990E+03, 
.9999990E+03, 
•9999990E+03, 
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Y AXIS 
s, . \, 

,9999990E+03, . 
,9999990E+03, 
►9999990E+03, 
.9999990E+03, 
,9999990E+03^ 
,9999990E+03, 
,9999990E+03, 
,9999990E*03, 
.9999990EV03, 
,9999990E+03, 



Y AXIS5, 
0*TE AND TI^5, 
-DISTANCE AS5, 

.9999990E+C3* 
.9P99990E+C3, 
.9999990F4C3, 
.99P9990E+C3, 
.99P9990E+C3, 
.O999990f 4C3V 
.9999990E+C3, 
.99P9990E+C3, 
.9999990E4C3, 
.9999990E+C3, 



^.llllllOE+03 
-.llllllOE+03 
-.llllllOE+03 
-.llllllOE+03 
-.llllllOE+03 
-.llllllOE+03 
. -.llllllOE+03 
-.llllllOE+03 
. -.llllllOE+03 
-.H11116e+03 
•9999990E+03 
.999S990E+03 
.9999990E+03 
.9999990E+03 
•99^9990E+03 
,9999990E-i-03 
.9999990E+03 
,9999990E+03 
•9999990E+03 
.9999990E+03 
DIST -0. 

0. 
0. 

TIME • 0. 

0. 
0. 

VEL • 0. 

.0. 

.10000000+01 
DX , » ( .<»000000E + 02 
DY ' • ( .1376000E+01 
DZ • (-.6761000E+03 

XMIN • 0 
XHAX » 500 
YMIN « 1 
YHAX • - 24 

ZMIN - -3 
Zf^AX » 27 
XRATE • .6510000E+02 
YRATE • .lOOOOOOE+01 
ZPATE • .9967e00E+02 
MEAN,, » .65666600+02 

.400CC00D+05 
SD • .15000000-02 

.50000000+06 
AVG • .30000000+03 

.26001000-08 

$ 



-.111: 
-.111; 
-.111: 
-.111] 
-.111: 
-.111: 
-.1.11: 
-.Hi: 
-.111: 
-.111: 



.lllOE+63 
.lllOE+03 
.lllOE+03 
.lllOE+03 
.lllOE + 03 
.lllOE + 03 
.lllOE+03 
.lllOE+03 
.lilOE+03 
.lllOE+03 
.99999'90E+03 
.9999990E.+ 03 
.9999990E+03 
.9999990Et-03 
. 99999 9CE+03 
.9999990E+03 
.9999990F+03 
.'9999990E + 03 
.9999990E+03 
.9999990E+03 
0. 
0 . 

0. . 
0. 

0. 
0. 

■.3600000E+02) 
.9900000E+02) 
.932000CE+02) 



-.1111110E,+ 0'» 
-.llllllOE+03 
-.lllllldE+03 
-.llllllOE+03 
-.llllllOE+03 
-.llllllOE+03 
-.l,lllllOE + 03 
-.llllllOE+03 
-.llllIlOE+03 
-.lillllOF+03 
.9999990E+03 
.9999990E+03 
.9999996E+O3 
.9999990E+03 
' .9999990E+0? 
.9999990E+03 
!.9999990E*03 
.9999990E+03 
.9999990E+03 
.9999990E+0? 
0. 

C. V ' 

0. 
0. 

0. 

.10000000+01 



-.1111110E+C3 
-.llllllOE + G'3 
-.11111"1^>F + C3 
-.lllinOt + C3 
-.1111110E+C3 
-.llllllCe+C3 
«.illlH0F + C3 
-.1111110E+C3 
-.niX110E + C3 
-.1111130F+C3 
.9999990E+C2 
;.9999990E+C3 
.9999990E+C3 
.9O99990E+C3 
.9Q99990E+C3 
.99<^9990E + C3 
.9P99990t+C3 
.9999Q90E+C3 
.9999990F+C3 
.9999990F + C'3 
0. 
0. 

0. 
0 . 

C. 

.10000000+Cl 



.6566660D+02» .65666600+0?* .6566^60D+C2» 
.15000000-02, •.1500000D-02» . 1 500000C- C2, 
.30000000+03, .30000000+03, . 3 000000 C + C 3 , 



OUTPUT FOR SUBLIST A AS WRITTEN BY QQWPIT 



BFLAG 

ZMIN 

ZMAX 

YRATE 

$ 



T, F, T, 

-3, 

27, 

.lOOOOOOE+Olf 



— -FREE.FORM INPUT FOR SUBLIST B AS ECHOED BY OQREAD 



<B» DX • C20.*^18.)* 0Y« (2. 752*198. 000002)* 
AVG ■ 5*18. E+10* $ ^ 

—OUTPUT FOR SUBLIST B AS WRITTEN BV QOWRIT-— 



ox ■ ( .2000000E+02*-.180COOOE+02)# 

DY ■ (' .2752000E+0iju .1980000E+03)* 

AVG ■ . .18000000+12* .18000000+12* 
.18000000+12* 

■ $ 
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.18000000+1?* .18000000+12* 



ERIC 
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' . ' - .. . . ■ APPENDIX. II' . .> • 

■• ' FFORM, GRAl-IMAR 

Grammar for deciaratlons 

[declaration-list] :. « [declaration] [end-of-f ile] 
I [declaration] [end-of-lirie] [end-of-f ile] : 
I [declaration] [end-of-line] [declaration-list] 

[declaration] J [type] [variable-list] 

[tjrpe]: INTEGER . I REAL | LOGICAL | TEXT 
k COMPLEX I DOUBLE PRECISION | DOUBLE 

[variable-^list]: = [variable-part], [variable-list] 

I [variable-part], [end-pf-line] [variable-list] 
f [variable-part] 

[variable-part]: [variable-name] 

I [variable-name] ([subscript-list]) 

.[variable-name]: = any FORTRAN variable identifier 1 of- length less than oriequal 
to six characters. ^ ' . ' . ^ 

[subscript-list]: = [digit-list] , 
I [digit-list], [digit-list] 

j [digit-list], ^[digit-list], [digit-list] ' . ^ 

[digit-list] : = [digit] [digit] [digit-list] 
[digit]: = 0]l|2|3|4|5|6|7|8|9. ^ 
[end-of-file]: = $ 

Grammar for [io-lists] 

[io-list]: = [end-of-file] 

I ([io-name]) [var-part] [end-of-line] [io-list] 

I ([io-name]) [var-part] [end-of-line] [end-of-file] 

I ([ip-name]) [var-part] [end-of-file] 

[io-name]: = any single character alphanumeric identifier . (nonb lank) 



[var-part]: = [variable-name] , [var-«-part] 
I [variable-name] . - 

[variable-name]: = any FORTRAN variable identifier of length less than or equal to 
\; aix characters , > " ^ - , i 

.€.■■■ ' ' ' 

Grammar for input cards > 

[input] : = [ionamed-lists J I [input-list] ' . 

[ionamed-lists]: = ([io-name]) [input- list ] 

. : I ([io-name]) [input-list] [col-list] [ionamed-lists] 

^1 [col-list] ([io-name]). [input-list] . 

[input-list]: = [input-exp] [end-of-f ile] . 

-I [ipput-exp] [input-list] 

I [col-list] [input-list] " 

[col-list] := [end-of-line] | [end-of-line]. [col-list] ' 

[io-name]: «. any single characteir, alphanumeric identifier (nonb lank) 

[end-of-file]: « $ " 

[input-exp]: ^ [name-part] « [value-part] 
[name-part]: « [variable-name] 

I • [variable-name] ([subscript-list]) 
[value-part]: « [value-exp], | [value-exp], [col-list] ■■ - 

I [value-exp] [col-list] / ' 

I [value-exp], [value-part] 

I [value-exp], [col-list] [value-part] 

I [value-exp] [col-list] [value-part] , / 

[variable-name]: = any FORTRAN variable identifier of length less than or equal 
to six characters , > ' 

[subscript-list]: = [digit-^list] 
I [digit-list], [digit-list] 
• I [digit-list], [digit-iist], [digit-list]' ^' 



. [vaXue-exp]: « [value] | [repeat-yalue]* [value] 

[digit-list]: « [digit] I [digit] [digit-list] 

[yalue]:' « '.[integer-value] | [real-yalue] ' . 
' ' I [logical-value] | [text-value] | [complex-value] 
I [double-precisionWalue] 

•[repjeat-value]: = [digit-list] 

[digit]: = 0|l|.2|3|A|5|6|7|8|9 

[integer-vklue]: = [digit-iist]^ | + [digit-list]. , 
I - [digit-list] ■ , _ - . . W. 

o . ■ 

J 

[real-value]: = [integer-value] | [integer-value]. 

- .■> ■ ■ • . ^ - ■ 

I [integer-value], [digit-list] . 
I [iriteger-valiie] [exponent] ^ 
I [integer-value], [digit-list ].. [exponent ] ' 
I [integer-value], [exponent] 
[logical-value] : = T|Fj .T. | .F. | .TRUE. |. FALSE. 

[text-value]: - #any alphanumeric character string// 

[ complex-value ] : = ( [ real-part ] , [ imaginary-part ] ) 

[double-precision-value] : = [real-value] 
I [integer-value] [d-exponerit] 
I [integer-value], [d-exponent] 
I [integer-value], [digit-list] [d-exponent] 

[exponent]: = E* [integer-value] 

[real-part]: = [real-value] 

[imaginary-part]: = [real-value] 

[d-exponent]: = D [integer-value] 
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APPENDIX III 
ERROR MESSAGES 



ERROR # 

1. 
■ 2> 

4 
5 

6 .. 
7 
8 
9 

.10 

11 

12 

13 

14 

15 

16 

17 

.18 
-19 
20 
21 ' 
22 
23 
24 
25 



ILLEGAL CHARACTER 
UNRECOGNIZABLE SYNTACTIC SYMBOL 
. END-OF-CARD EXPECTED 
RESERVED WORD EXPECTED ' 
VARIABLE NAME EXPECTED 

a- . * 

SYMBOL TABLE OVERFLOW 

DUPLICATE DECLARATION 

INTEGER SUBSCRIPT EXPECTED 

. ■ ' ' . - 

LPAREN EXPECTED' ' \ ' 

RPAREN EXPECTED 

lONAME ARGUMENT TO SUiBROUTINE^ QQINTL DOES NOT MATCH ANY lO-LIST NAME 
UNDECLARED VARIABLE NAME ' ^ > 

EQUAL SIGN EXPECTED — . ' 
VARIABLE DOES NOT APPEAR ON CURRENT lO-LIST 
ONE OF SUBSCRIPTS EXCEEDS DECLARED SUBSCRIPT 
COMMA EXPECTED 

REPEAT "VALUE MUST BE AN INTEGER ' " , * 

INTEGER VALUE EXPECTED 

ARRAY OUT* OF BOUNDS ' 

REAL VALUE EXPECTED ' ' . 

TEXT VALUE EXPECTED " - 

I . • 

LOGIC^ VALUE EXPECTED f 



DOUBLE PRECISION VALUE EXPECTED 
COMPLEX VALUE EXPECTED 
END-OF-FILE MARK EXPECTED 
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